home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Src Code / PO3DEDIT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  2.6 KB  |  100 lines
  1. {**********************************************}
  2. {   TPoint3DSeries Component Editor Dialog     }
  3. {   Copyright (c) 1998 by David Berneda        }
  4. {**********************************************}
  5. {$I teedefs.inc}
  6. unit Po3DEdit;
  7.  
  8. interface
  9.  
  10. uses
  11.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  12.   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Chart,Series, TeePoin3
  13.   {$IFDEF D1}
  14.   , TeeUpDow, Spin
  15.   {$ELSE}
  16.   , ComCtrls
  17.   {$ENDIF};
  18.  
  19. type
  20.   TPoint3DSeriesEditor = class(TForm)
  21.     GPLine: TGroupBox;
  22.     BitBtn1: TBitBtn;
  23.     CBColorEach: TCheckBox;
  24.     Button1: TButton;
  25.     SHColor: TShape;
  26.     Label4: TLabel;
  27.     SEPointDepth: TEdit;
  28.     UDPointDepth: TUpDown;
  29.     procedure FormShow(Sender: TObject);
  30.     procedure BitBtn1Click(Sender: TObject);
  31.     procedure Button1Click(Sender: TObject);
  32.     procedure FormCreate(Sender: TObject);
  33.     procedure CBColorEachClick(Sender: TObject);
  34.     procedure SHColorMouseUp(Sender: TObject; Button: TMouseButton;
  35.       Shift: TShiftState; X, Y: Integer);
  36.     procedure SEPointDepthChange(Sender: TObject);
  37.   private
  38.     { Private declarations }
  39.     CreatingForm:Boolean;
  40.   public
  41.     { Public declarations }
  42.     TheSeries:TPoint3DSeries;
  43.   end;
  44.  
  45. implementation
  46.  
  47. {$R *.DFM}
  48. uses PenDlg, Teengine, TeePoEdi, TeeProcs;
  49.  
  50. procedure TPoint3DSeriesEditor.FormShow(Sender: TObject);
  51. begin
  52.   Screen.Cursor:=crDefault;
  53.   TheSeries:=TPoint3DSeries(Tag);
  54.   With TheSeries do
  55.   Begin
  56.     SHColor.Brush.Color:=SeriesColor;
  57.     UDPointDepth.Position :=Round(DepthSize);
  58.     CBColorEach.Checked:=ColorEachPoint;
  59.   end;
  60.   SHColor.Cursor:=crTeeHand;
  61.   TeeInsertPointerForm(Parent,TheSeries.Pointer);
  62.   CreatingForm:=False;
  63. end;
  64.  
  65. procedure TPoint3DSeriesEditor.BitBtn1Click(Sender: TObject);
  66. begin
  67.   With TheSeries do SeriesColor:=EditColor(Self,SeriesColor);
  68.   SHColor.Brush.Color:=TheSeries.SeriesColor;
  69. end;
  70.  
  71. procedure TPoint3DSeriesEditor.Button1Click(Sender: TObject);
  72. begin
  73.   EditChartPen(Self,TheSeries.LinePen);
  74. end;
  75.  
  76. procedure TPoint3DSeriesEditor.FormCreate(Sender: TObject);
  77. begin
  78.   CreatingForm:=True;
  79. end;
  80.  
  81. procedure TPoint3DSeriesEditor.CBColorEachClick(Sender: TObject);
  82. begin
  83.   TheSeries.ColorEachPoint:=CBColorEach.Checked;
  84. end;
  85.  
  86. procedure TPoint3DSeriesEditor.SHColorMouseUp(Sender: TObject;
  87.   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  88. begin
  89.   BitBtn1Click(Self);
  90. end;
  91.  
  92. procedure TPoint3DSeriesEditor.SEPointDepthChange(Sender: TObject);
  93. begin
  94.   if not CreatingForm then TheSeries.DepthSize:=UDPointDepth.Position;
  95. end;
  96.  
  97. initialization
  98.   RegisterClass(TPoint3DSeriesEditor);
  99. end.
  100.